library(here)

source(here("Design", "nonbimatchingfunctions.R"))

load(here("Data", "wrkdat_DA0_new.rda"))

## Make simple objective distance
vmdaDist <- scalar.dist(wrkdat_DA0_new$da_prop_vm_20pct_06, scalefactor = 100000) ## the matching software wants integers
dimnames(vmdaDist) <- list(row.names(wrkdat_DA0_new), row.names(wrkdat_DA0_new))

save(vmdaDist, file = here::here("Design", "dist_mats_DA_new.rda"))
